home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 September
/
CHIP Eylül 1998.iso
/
freeware
/
BIGPA00.EXE
/
BIGpage.exe
/
0
/
RCDATA
/
TDLGEDIT
/
TDLGEDIT.txt
Wrap
Text File
|
1998-01-08
|
16KB
|
499 lines
object dlgEdit: TdlgEdit
Left = 287
Top = 162
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'BIGpage'
ClientHeight = 364
ClientWidth = 505
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 505
Height = 364
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object PTSplitter1: TPTSplitter
Left = 1
Top = 35
Width = 503
Height = 328
Align = alClient
Color = clSilver
ParentColor = False
Position = 180
TabOrder = 0
object TPTPane
Left = 0
Top = 0
Width = 180
Height = 328
Index = 0
object tvBIGpage: TPTShellTree
Left = 2
Top = 2
Width = 176
Height = 324
Options = [ptstoAutoFill, ptstoVirtualFolders, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoDynamicRefresh, ptstoIncludeNonFolders]
BorderStyle = bsNone
ShowRoot = False
DragMode = dmAutomatic
HideSelection = False
Indent = 19
OnChanging = tvBIGpageChanging
OnChange = tvBIGpageChange
Align = alClient
ParentColor = False
TabOrder = 0
end
end
object TPTPane
Left = 183
Top = 0
Width = 320
Height = 328
FrameStyle = ptfsNone
Color = clGray
ParentColor = False
Index = 1
object Panel2: TPanel
Left = 0
Top = 0
Width = 320
Height = 328
Align = alClient
BevelOuter = bvNone
BorderWidth = 6
Color = 10420224
TabOrder = 0
object ExtPageControl1: TExtPageControl
Left = 6
Top = 6
Width = 308
Height = 316
ActivePage = TabSheet1
Align = alClient
TabHeight = 20
TabOrder = 0
TabWidth = 70
Color = 10420224
ParentColor = False
TabActiveColor = 10420224
TabActiveFont.Charset = DEFAULT_CHARSET
TabActiveFont.Color = clWhite
TabActiveFont.Height = -11
TabActiveFont.Name = 'MS Sans Serif'
TabActiveFont.Style = []
TabInactiveColor = 10420224
TabInactiveFont.Charset = DEFAULT_CHARSET
TabInactiveFont.Color = clSilver
TabInactiveFont.Height = -11
TabInactiveFont.Name = 'MS Sans Serif'
TabInactiveFont.Style = []
object TabSheet1: TTabSheet
Caption = 'Properties'
object Label3: TLabel
Left = 15
Top = 170
Width = 56
Height = 13
Caption = 'Description:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 15
Top = 49
Width = 30
Height = 13
Caption = 'URLs:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 15
Top = 15
Width = 42
Height = 13
Caption = 'Channel:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object btnDOWN: TTransparentButton
Left = 263
Top = 44
Width = 24
Height = 24
Hint = 'Browse'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
333333333337F3333333333333397333333333333337FF333333333333C94333
3333333333737F333333333333C9473333333333337373F3333333333CC94433
3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
444377733337F333777FC3333339333337437333333733333373}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnDOWNClick
end
object btnUP: TTransparentButton
Left = 236
Top = 44
Width = 24
Height = 24
Hint = 'Browse'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
33333333333737F333333333333C943333333333333737333333333333339733
3333333333337F33333333333333933333333333333373333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnUPClick
end
object edDescription: TRichEdit
Left = 15
Top = 193
Width = 274
Height = 59
TabOrder = 0
end
object lbURLs: TListBox
Left = 15
Top = 72
Width = 274
Height = 92
ItemHeight = 13
PopupMenu = PopupMenu1
TabOrder = 1
OnClick = lbURLsClick
OnDblClick = lbURLsDblClick
end
object cmbChannel: TComboBox
Left = 65
Top = 12
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
Sorted = True
TabOrder = 2
end
end
object TabSheet2: TTabSheet
Caption = 'Author Info'
object Label2: TLabel
Left = 16
Top = 99
Width = 36
Height = 13
Caption = 'WWW:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object TLabel
Left = 16
Top = 74
Width = 28
Height = 13
Caption = 'Email:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 16
Top = 49
Width = 34
Height = 13
Caption = 'Author:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 16
Top = 138
Width = 259
Height = 52
Caption =
'You can provide the URL of a banner to be displayed whenever som' +
'eone views your BIGpage. This banner will be displayed within t' +
'he top pane of the BIGpage and must be 120 X 60 in size.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label7: TLabel
Left = 16
Top = 200
Width = 62
Height = 13
Caption = 'Banner URL:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 16
Top = 9
Width = 263
Height = 26
Caption =
'You can provide info about yourself as the author of this BIGpag' +
'e, to enable viewers to contact you.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object edAuthor: TEdit
Left = 60
Top = 45
Width = 200
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
object edEmail: TEdit
Left = 60
Top = 71
Width = 200
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
end
object edWebsite: TEdit
Left = 60
Top = 97
Width = 200
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
end
object edBannerURL: TEdit
Left = 16
Top = 218
Width = 249
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 3
end
end
end
end
end
end
object pnlTitle: TPanel
Left = 1
Top = 1
Width = 503
Height = 34
Align = alTop
Alignment = taLeftJustify
BorderWidth = 4
Caption = 'BIGpage:'
Color = clNavy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object btnNew: TTransparentButton
Left = 190
Top = 5
Width = 49
Height = 24
Hint = 'New BIGpage'
Caption = 'New'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnNewClick
end
object btnAdd: TTransparentButton
Left = 242
Top = 5
Width = 49
Height = 24
Hint = 'Add URL'
Caption = 'Add'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnAddPageClick
end
object btnDelete: TTransparentButton
Left = 294
Top = 5
Width = 49
Height = 24
Hint = 'Delete URL'
Caption = 'Delete'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = obtnDeleteClick
end
object btnBrowse: TTransparentButton
Left = 346
Top = 5
Width = 49
Height = 24
Hint = 'Browse'
Caption = 'Browse'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnBrowseClick
end
end
end
object ilLarge: TImageList
Height = 32
Width = 32
Left = 450
Top = 318
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 421
Top = 318
object pmiNew: TMenuItem
Caption = '&New'
OnClick = btnNewClick
end
object N2: TMenuItem
Caption = '-'
end
object pmiAdd: TMenuItem
Caption = '&Add URL...'
OnClick = btnAddPageClick
end
object pmiEdit: TMenuItem
Caption = '&Edit URL...'
OnClick = lbURLsDblClick
end
object pmiDelete: TMenuItem
Caption = '&Delete URL'
OnClick = obtnDeleteClick
end
object N1: TMenuItem
Caption = '-'
end
object pmiBrowse: TMenuItem
Caption = '&Browse'
OnClick = pmiBrowseClick
end
end
end
